﻿Imports System.Data.OleDb
Imports DTO
Imports DAO
Imports BUS

Public Class BSungThuoc
    Private tenthuoc As New List(Of ThuocDTO)
    Private cachdung As New List(Of CachDungDTO)
    Private Sub NhapThuoc_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        Dim hsBus As New ThuocBUS()
        dt = hsBus.LayBang()
        dtgv_tenthuoc.DataSource = dt
        dsach_TenThuoc()
    End Sub
    Private Sub dsach_TenThuoc()

        tenthuoc = ThuocDAO.Laytenthuoc()

        For i As Integer = 1 To tenthuoc.Count - 1
            dud_tenthuoc.Items.Add(tenthuoc(i).TenThuoc)
            dud_tenthuoc.Text = tenthuoc(0).TenThuoc
        Next
    End Sub
  
    Private Sub btn_luu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_luu.Click
        Close()
    End Sub
End Class